do Window.{show-at-center};

do Window.{on-close}.{connect {os::exit 0}};

do
    \ buf := sync { Reactive 'action example' },
    (Label bind buf.{watch})
        . { with ActionOpen.{activated}.{connect (buf <- 'activated: open')} }
        . { with ActionSave.{activated}.{connect (buf <- 'activated: save')} }
        . { with ActionClose.{activated}.{connect (buf <- 'activated: close')} };
